home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 55 / 055.d81 / crossword player (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  118 lines
  1. 5 poke55,0:poke56,56:clr
  2. 10 poke53280,0:poke53281,0:printchr$(147)chr$(142)chr$(8):poke53272,21
  3. 20 print""tab(14)"[156]please wait"
  4. 30 sys57812"cross font",8,0
  5. 40 poke780,0
  6. 50 poke781,0
  7. 60 poke782,56
  8. 70 sys65493
  9. 80 print""tab(14)"[159]please wait
  10. 81 [158]57812"xplayer",8,0:[143] load player
  11. 82 [151]780,0
  12. 83 [151]781,0
  13. 84 [151]782,64
  14. 85 [158]65493
  15. 90 [153]"loadcontwait"[163]11)"the cruciverbalist"
  16. 95 [153]"print"[163]7)"a crossword player program"
  17. 96 [153]""[163]7)"ortantantantantantantantantantantantantantantantantantantantantantantantan^"
  18. 97 [153][163]7)"(NULL)        puzzles         (NULL)"
  19. 98 [153][163]7)"(NULL)                        (NULL)"
  20. 100 [153][163]7)"(NULL) 1] commodore caper     (NULL)"
  21. 105 [153][163]7)"(NULL) 2] a mysterious affair (NULL)"
  22. 110 [153][163]7)"(NULL) 3] the olympics        (NULL)"
  23. 113 [153][163]7)"(NULL) 4] framework           (NULL)"
  24. 114 [153][163]7)"(NULL) 5] the spice of life   (NULL)"
  25. 115 [153][163]7)"(NULL) 6] for the birds       (NULL)"
  26. 116 [153][163]7)"(NULL)                        (NULL)"
  27. 117 [153][163]7)"(NULL) 7] instructions        (NULL)"
  28. 120 [153][163]7)"(NULL) 8] return to loadstar  (NULL)"
  29. 121 [153][163]7)"(NULL)                        (NULL)"
  30. 122 [153][163]7)"/tantantantantantantantantantantantantantantantantantantantantantantantanexp"
  31. 125 [153]"clr      (c) 1988  by barbara schulak"
  32. 130 [153]"open       puzzles by barbara schulak"
  33. 150 [161]k$:[139]k$[178]""[167]150
  34. 160 k[178][197](k$):[139]k[179]1[176]k[177]8[167]150
  35. 170 [139]k[178]8[167]9000:[143] loadstar
  36. 180 [139]k[178]7[167][141]5000:[137]90:[143] instructions
  37. 190 [139]k[178]1[167]f$[178]"commodore":[143]f$mustbe13orlesschars
  38. 200 [139]k[178]2[167]f$[178]"mystery"
  39. 210 [139]k[178]3[167]f$[178]"olympic"
  40. 211 [139]k[178]4[167]f$[178]"framework"
  41. 212 [139]k[178]5[167]f$[178]"spice"
  42. 213 [139]k[178]6[167]f$[178]"for the birds"
  43. 214 [151]214,17:[153]:[153]"def"[163]13)"loading file..."
  44. 215 [151]53272,31:x[178][195](f$):[151]828,x[170]3
  45. 216 [129]i[178]1[164]x:[151]831[170]i,[198]([202](f$,i,1)):[130]
  46. 217 [151]829,[198]("@")
  47. 218 [151]830,[198]("0")
  48. 219 [151]831,[198](":")
  49. 220 [158]57812f$,8,0:[143] load data
  50. 230 [151]780,0
  51. 240 [151]781,0
  52. 250 [151]782,128
  53. 260 [158]65493
  54. 270 [158]16384
  55. 330 [151]53272,21:[137]90
  56. 340 :
  57. 5000 [153]"loadortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^";
  58. 5005 [153]"(NULL)cont         the cruciverbalist           wait(NULL)";
  59. 5010 [153]"-{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}<";
  60. 5015 [153]"{$7d}list                                      wait{$7d}";
  61. 5020 [153]"(NULL)list    this program presents several     wait(NULL)";
  62. 5025 [153]"(NULL)list crossword puzzles for your solving   wait(NULL)";
  63. 5030 [153]"(NULL)list enjoyment.  to play select the       wait(NULL)";
  64. 5035 [153]"(NULL)list puzzle of your choice from the main  wait(NULL)";
  65. 5040 [153]"(NULL)list menu.  once the puzzle has loaded,   wait(NULL)";
  66. 5045 [153]"(NULL)list use the cursor keys to move around   wait(NULL)";
  67. 5050 [153]"(NULL)list the grid and press the letter keys   wait(NULL)";
  68. 5055 [153]"(NULL)list to enter your solution.  black       wait(NULL)";
  69. 5060 [153]"(NULL)list squares indicate the end of words.   wait(NULL)";
  70. 5062 [153]"(NULL)list                                      wait(NULL)";
  71. 5065 [153]"(NULL)list    the definitions are displayed at  wait(NULL)";
  72. 5070 [153]"(NULL)list the bottom of the screen and         wait(NULL)";
  73. 5075 [153]"(NULL)list represent the clues for the square   wait(NULL)";
  74. 5080 [153]"(NULL)list that your cursor is on.  as you move wait(NULL)";
  75. 5085 [153]"(NULL)list the cursor, the clues will change.   wait(NULL)";
  76. 5095 [153]"(NULL)list                                      wait(NULL)";
  77. 5100 [153]"(NULL)list                                      wait(NULL)";
  78. 5105 [153]"{$7d}list                                      wait{$7d}";
  79. 5110 [153]"-{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}<";
  80. 5115 [153]"{$7d}clr             press return             wait{$7d}";
  81. 5120 [153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan";:[151]2023,125:[151]56295,1
  82. 5125 [161]k$:[139]k$[179][177][199](13)[167]5125
  83. 5135 :
  84. 6000 [153]"loadortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^";
  85. 6005 [153]"(NULL)cont         the cruciverbalist           wait(NULL)";
  86. 6010 [153]"-tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan<";
  87. 6015 [153]"(NULL)list                                      wait(NULL)";
  88. 6020 [153]"(NULL)list    controls:                         wait(NULL)";
  89. 6025 [153]"(NULL)list                                      wait(NULL)";
  90. 6030 [153]"(NULL)list f1: toggle the cursor advance to     wait(NULL)";
  91. 6035 [153]"(NULL)list       either across or down          wait(NULL)";
  92. 6040 [153]"(NULL)list f3: save a puzzle that is partially  wait(NULL)";
  93. 6045 [153]"(NULL)list       finished                       wait(NULL)";
  94. 6050 [153]"(NULL)list f5: receive a letter hint            wait(NULL)";
  95. 6055 [153]"(NULL)list f7: check to see if puzzle has been  wait(NULL)";
  96. 6060 [153]"(NULL)list       solved                         wait(NULL)";
  97. 6062 [153]"(NULL)list                                      wait(NULL)";
  98. 6065 [153]"(NULL)list f2: see the solution                 wait(NULL)";
  99. 6070 [153]"(NULL)list f4: load a partially completed       wait(NULL)";
  100. 6075 [153]"(NULL)list       puzzle                         wait(NULL)";
  101. 6080 [153]"(NULL)list f6: clear the grid (start over)      wait(NULL)";
  102. 6085 [153]"(NULL)list f8: return to main menu              wait(NULL)";
  103. 6095 [153]"(NULL)list                                      wait(NULL)";
  104. 6100 [153]"(NULL)list                                      wait(NULL)";
  105. 6105 [153]"(NULL)list                                      wait(NULL)";
  106. 6110 [153]"-tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan<";
  107. 6115 [153]"(NULL)clr             press return             wait(NULL)";
  108. 6120 [153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan";:[151]2023,125:[151]56295,1
  109. 6125 [161]k$:[139]k$[179][177][199](13)[167]6125
  110. 6130 [142]
  111. 6135 :
  112. 9000 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15
  113. 9005 [151]53272,21:[153]"load"
  114. 9010 [139]er[179][177]63[167][128]
  115. 9020 [147]"hello connect",8
  116. 9999 :
  117. 10000 [159]15,8,15,"s0:crossword player":[160]15:[148]"0:crossword player",8
  118.